home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxset.plp < prev    next >
Text File  |  1991-10-18  |  16KB  |  583 lines
  1. /*    USER-ID & PASSWORDの設定    */
  2. %setUID    {
  3.     SNDMSG({nyuryo_f.snd});
  4.     footnote({ユーザーＩＤを入力して下さい});
  5.     %id    @input({ユーザーＩＤを入力して下さい\n}|
  6.             {    ユーザーＩＤは必ず半角の大文字で入力して下さい},
  7.             ,ID);
  8.         case    (@nochar(id),
  9.             8,{ID:=id;setPASS}
  10.             ,,{setUID});
  11.     };
  12.  
  13. %setPASS{
  14.     SNDMSG({nyuryo_f.snd});
  15.     footnote(ID|{のパスワードを入力して下さい});
  16.     %pass    @input(ID|{のパスワードを入力して下さい\n}|
  17.             {    ｢*｣を指定すると実行時に入力可能です},
  18.             ,PassWord);
  19.         case(pass,{},{setPASS},,{PassWord:=pass});
  20.     };
  21.  
  22. %setID    {
  23.     loop    (
  24.         {
  25.         SNDMSG({erande_f.snd});
  26.         footnote({設定する情報を選択して下さい});
  27.         select    (
  28.             {設定する情報を選択して下さい},
  29.             Wtime4,{im({No})},
  30.             {    ユーザーＩＤ設定    },{setUID;im({Yes})},
  31.             {    パスワードの設定    },{setPASS;im({Yes})},
  32.             {        設定終了        },{im({No})}
  33.             );
  34.         }
  35.         );
  36.     };
  37.  
  38. %setAT    {
  39.     var type[10];
  40.     SNDMSG({erande_f.snd});
  41.     footnote({モデムのタイプを選択して下さい});
  42.     type := @select({どういうタイプのモデムですか？},
  43.         Wtime4,{im({1200n})},
  44.         {  １２００　                  ＭＮＰなし  },{im({1200n})},
  45.         {  ２４００　                  ＭＮＰなし  },{im({2400n})},
  46.         {  ２４００(端末速度2400)　    ＭＮＰあり  },{im({2400m})},
  47.         {  ２４００(端末速度4800)　    ＭＮＰあり  },{im({4800m})},
  48.         {  2400以上(端末速度9600以上)　ＭＮＰあり  },{im({9600m})}
  49.         );
  50.     
  51.     SNDMSG({nyuryo_f.snd});
  52.     footnote({ＡＴコマンドを設定して下さい});
  53.     %a @input({ATコマンドを設定して下さい  例｢ATX3\N3\V1\Q3\J0｣},,
  54.                         {AT}|@head(MODEM,{/}));
  55.     case    (a<>{},
  56.         {Yes},
  57.         {case    (@getchar(a,1,2),
  58.             {AT},
  59.             {case    ( a = @head(a,{\}),
  60.                 {Yes},
  61.                 {MODEM:=@getchar(a,3,999)|{/}|
  62.                     @getchar(a,3,999)|{/AT直接指定_}|type;},                ,
  63.                 {MODEM:=@getchar(a,3,999)|{/}|
  64.                     {/AT直接指定_}|type;}
  65.                 );
  66.             }
  67.             );
  68.         },
  69.         {No},{setAT}
  70.         );
  71.     };
  72.  
  73. %setMODEM{
  74.     %modem    {case    (MODEM,
  75.             {},{im({未設定})},
  76.             ,  {head(@tail(MODEM,{/}),{_})}
  77.             )};
  78.     SNDMSG({erande_f.snd});
  79.     footnote({モデムの機種を選んで下さい});
  80.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  81.     Wtime4,{},
  82.     {変更しない},{},
  83.     {内蔵1200},         {MODEM:={X3//内蔵1200_1200n}},
  84.     {内蔵2400},        {MODEM:={X3/\N3\V1\Q3\J0/内蔵2400_9600m}},
  85.     {富士通 PM1200F},     {MODEM:={X3//PM1200F_1200n}},
  86.     {富士通 PM2400F},    {MODEM:={X3/\N3\V1\Q3\J0/PM2400F_9600m}},
  87.     {富士通 OAMD-301},    {MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  88.     {AIWA PV-A1200},    {MODEM:={X3//PV-A1200_1200n}},
  89.     {AIWA PV-A2400},    {MODEM:={X3//PV-A2400_2400n}},
  90.     {AIWA PV-A2400MNP4},    {MODEM:={&D2/&M4\X1\Q1/PV-A2400MNP4_9600m}},
  91.     {AIWA PV-A24MNP5},    {MODEM:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
  92.     {AIWA PV-A24V42},    {MODEM:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
  93.     {AIWA PV-M24},        {MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
  94.     {AIWA PV-M24M5},    {MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  95.     {EPSON SR-120S},    {MODEM:={X3//SR-120S_1200n}},
  96.     {EPSON SR-240AT},    {MODEM:={X3//SR-240AT_2400n}},
  97.     {EPSON SR-240V},    {MODEM:={X3\V2/N1&K1%C1/SR-240V_9600m}},
  98.     {OMRON MD1200},        {MODEM:={X3//MD1200_1200n}},
  99.     {OMRON MD12FS},        {MODEM:={X3//MD12FS_1200n}},
  100.     {OMRON MD2400F},    {MODEM:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
  101.     {OMRON MD24FS4},    {MODEM:={X3/\N3\Q2\J0/MD24FS4_2400m}},
  102.     {OMRON MD24FP4},    {MODEM:={X3/\N3\Q2\J0/MD24FP4_2400m}},
  103.     {OMRON MD24FP4II},    {MODEM:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
  104.     {OMRON MD24FS5},    {MODEM:={X3/\N3\Q2\J0/MD24FS5_2400m}},
  105.     {OMRON MD24FS7},    {MODEM:={X3/\N3\Q2\J0/MD24FS7_2400m}},
  106.     {NEC COMSTAR 2424},    {MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  107.     {ATコマンド直設定},    {setAT}
  108.     )
  109.     };
  110.  
  111. /*    ダイヤル種類の設定    */
  112. %setDIAL{
  113.     %dial    {case    (DIAL,
  114.             {P},{im({ダイヤルパルス式})},
  115.             {T},{im({プッシュホン式})},
  116.             ,   {im({未設定})})};
  117.     SNDMSG({erande_f.snd});
  118.     footnote({電話回線の種類を指定して下さい});
  119.     select    (
  120.         {電話回線の種類を指定して下さい  現在は}|@dial|{です},
  121.         Wtime4,{},
  122.         {ダイヤルパルス式},{DIAL:={P}},
  123.         { プッシュホン式 },{DIAL:={T}}
  124.         );
  125.     };
  126.  
  127. %setMDM    {
  128.     loop    (
  129.         {
  130.         SNDMSG({erande_f.snd});
  131.         footnote({設定する情報を選択して下さい});
  132.         select    (
  133.             {設定する情報を選択して下さい},
  134.             Wtime4,{im({No})},
  135.             {    モデム機種の設定    },{setMODEM;im({Yes})},
  136.             {   ダイヤル種類の設定   },{setDIAL;im({Yes})},
  137.             {        設定終了        },{im({No})}
  138.             );
  139.         }
  140.         );
  141.     };
  142.  
  143.  
  144. /*    ＲＯＡＤ１の回線スピードの設定    */
  145. %setSPEED
  146.     {
  147.     SNDMSG({erande_f.snd});
  148.     footnote({ＲＯＡＤ１のスピードを指定して下さい});
  149.     select    (
  150.         {ＲＯＡＤ１のスピードを指定して下さい},
  151.         Wtime4,{im({No})},
  152.         {  1200  },{ROAD1:=@nth(ROAD1,1,{/})|{/1200}},
  153.         {  2400  },{ROAD1:=@nth(ROAD1,1,{/})|{/2400}}
  154.         );
  155.     };
  156.  
  157. %setTEL    {
  158.     loop    (
  159.         {
  160.         SNDMSG({erande_f.snd});
  161.         footnote({設定するＡＰを選択して下さい});
  162.         select    (
  163.             {設定するＡＰを選択して下さい},
  164.             Wtime4,{im({No})},
  165.             {     ＲＯＡＤ１     },
  166.             {
  167.             SNDMSG({erande_f.snd});
  168.             footnote({FENICS-ROAD1の電話番号を入力して下さい});
  169.             ROAD1:=@input({FENICS-ROAD1の電話番号を入力して下さい},
  170.                     ,@nth(ROAD1,1,{/}));
  171.             setSPEED;
  172.             im({Yes});
  173.             },
  174.             {     ＲＯＡＤ２     },
  175.             {
  176.             SNDMSG({erande_f.snd});
  177.             footnote({FENICS-ROAD2の電話番号を入力して下さい});
  178.             ROAD2:=@input({FENICS-ROAD2の電話番号を入力して下さい},
  179.                     ,ROAD2);
  180.             im({Yes});
  181.             },
  182.             {      設定終了      },{im({No})}
  183.             );
  184.         }
  185.         );
  186.     };
  187.  
  188. /* ディレクトリの設定    */
  189. %setTEMPDIR
  190.     {
  191.     footnote({ディレクトリ名を入力して下さい});
  192.     loop    (
  193.         {
  194.         SNDMSG({nyuryo_f.snd});
  195.         %dir    @input({ﾃﾝﾎﾟﾗﾘﾌｧｲﾙを作成するﾃﾞｨﾚｸﾄﾘを入力して下さい\n}|
  196.                 {    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}|
  197.                 {    例  B:\NIFTY\TEMP},
  198.                 ,TEMP);
  199.         case    (@getchar(dir,2,2)={:\},
  200.                 {No}, {im({Yes})},
  201.                 {Yes},{TEMP:=dir;mkdir2(TEMP);im({No})}
  202.             );
  203.         }
  204.         );
  205.     };
  206.  
  207. %setARCDIR
  208.     {
  209.     SNDMSG({nyuryo_f.snd});
  210.     footnote({ディレクトリ名を入力して下さい});
  211.     %dir    @input({保存ﾌｧｲﾙを作成するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}|
  212.             {    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}|
  213.             {    例  B:\NIFTY\LOG},
  214.             ,LOG);
  215.     case    (@getchar(dir,2,2)={:\},
  216.             {No},setARCDIR,
  217.             {Yes},{LOG:=dir}
  218.         );
  219.     mkdir2(LOG);
  220.     };
  221.  
  222. %setARCHIVER    {
  223.     var    archiver    [12];
  224.     loop    (
  225.         {
  226.         SNDMSG({erande_f.snd});
  227.         footnote({圧縮プログラムを指定して下さい}|
  228.                 {  LHARCまたはLHAのみ可能です});
  229.         archiver:=@filesel({EXE});
  230.         case    (archiver,
  231.             {},        {im({No})},
  232.             {LHARC.EXE},    {im({No})},
  233.             {LHA.EXE},    {im({No})},
  234.             {lharc.exe},    {im({No})},
  235.             {lha.exe},    {im({No})},
  236.             ,        {im({Yes})}
  237.             );
  238.         }
  239.         );
  240.     case    (archiver={},
  241.         {No},
  242.         {case    (@nochar(@getcdir)=3,
  243.             {No}, {ARCHIVER:=@getcdir|{\}|archiver},
  244.             {Yes},{ARCHIVER:=@getcdir|archiver}
  245.             )},
  246.         {Yes},{ARCHIVER:={}}
  247.         );
  248.     };
  249.  
  250. /*    圧縮モードの設定    */
  251. %setCOMP{
  252.     %lha    {case(COMPRESS={}||COMPRESS={No},
  253.             {Yes},{im({ 圧縮しない })},
  254.             {No}, {im({ 圧縮する })}
  255.             )
  256.         };
  257.     SNDMSG({erande_f.snd});
  258.     footnote({保存ファイルは圧縮しますか？});
  259.     select    (
  260.         {保存ファイルは圧縮しますか？  現在は}|@lha|{です},
  261.         Wtime4,,
  262.         {  圧縮する  },{COMPRESS:={Yes};setARCHIVER},
  263.         { 圧縮しない },{COMPRESS:={No}}
  264.         );
  265.     };
  266.  
  267. /*    ﾛｸﾞﾌｧｲﾙ作成ﾓｰﾄﾞの設定    */
  268. %setLOG    {
  269.     %mode    {case    (LOGmode,
  270.             {forum},{im({『フォーラム毎』})},
  271. /*            {mes},    {im({『  会議室毎  』})},    */
  272.             ,    {im({『 全体で一個 』})}
  273.             );
  274.         };
  275.     SNDMSG({erande_f.snd});
  276.     footnote({ログ作成モードを指定して下さい});
  277.     select    (
  278.         {ログ作成モードを指定して下さい  現在は}|@mode|{です},
  279.         Wtime4,,
  280.         {フォーラム毎},{LOGmode:={forum}},
  281. /*        {  会議室毎  },{LOGmode:={mes}},    */
  282.         { 全体で一個 },{LOGmode:={all}}
  283.         );
  284.     };
  285.  
  286. %setDIR    {
  287.     loop    (
  288.         {
  289.         SNDMSG({erande_f.snd});
  290.         footnote({設定する情報を選択して下さい});
  291.         select    (
  292.             {設定する情報を選択して下さい},
  293.             Wtime4,{im({No})},
  294.             {  保存ディレクトリの設定  },{setARCDIR;im({Yes})},
  295.             {   ログ圧縮モードの設定   },{setCOMP;im({Yes})},
  296.             {   ログ作成モードの設定   },{setLOG;im({Yes})},
  297.             { ワークディレクトリの設定 },{setTEMPDIR;im({Yes})},
  298.             {         設定終了         },{im({No})}
  299.             );
  300.         }
  301.         );
  302.     };
  303.  
  304. /*    背景色の設定をする    */
  305. %setCOLOR
  306.     {
  307.     case    (R,{},{R:=0});
  308.     case    (G,{},{G:=0});
  309.     case    (B,{},{B:=0});
  310.     SNDMSG({erande_f.snd});
  311.     footnote({背景色の変更をします});
  312.     loop    (
  313.         {
  314.         select    (
  315.             {背景色の変更をします}|
  316.             {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  317.             Wtime4,{im({No})},
  318.             {赤↑},
  319.             {case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  320.             {赤↓},
  321.             {case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  322.             {緑↑},
  323.             {case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  324.             {緑↓},
  325.             {case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  326.             {青↑},
  327.             {case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  328.             {青↓},
  329.             {case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  330.             {終了},
  331.             {im({No})}
  332.             );
  333.         }
  334.         );
  335.     };
  336.  
  337. /*    音声メッセージファイルのコピー    */
  338. %copySND{
  339.     [snddir]        /* 最後は｢\｣であること */
  340.     display    (BELL);
  341.     footnote({システムＣＤをセットして下さい});
  342.     select    ({システムＣＤをセットして下さい},
  343.         Wtime4,,
  344.         { ＯＫ },
  345.         {dispoff({Yes});
  346.          footnote({erande_f.sndをコピーします});
  347.          command({copy q:\fj\msg\order\erande_f.snd }|snddir|{*.*});
  348.          footnote({nyuryo_f.sndをコピーします});
  349.          command({copy q:\fj\msg\order\nyuryo_f.snd }|snddir|{*.*});
  350.          footnote({kaknin_f.sndをコピーします});
  351.          command({copy q:\fj\msg\order\kaknin_f.snd }|snddir|{*.*});
  352.          footnote({owata_f.sndをコピーします});
  353.          command({copy q:\fj\msg\info\owata_f.snd }|snddir|{*.*});
  354.          footnote({okasi_f.sndをコピーします});
  355.          command({copy q:\fj\msg\alarm\okasi_f.snd }|snddir|{*.*});
  356.          footnote({jikan_f.sndをコピーします});
  357.          command({copy q:\fj\msg\info\jikan_f.snd }|snddir|{*.*});
  358.          footnote({jikan_f.sndをコピーします});
  359.          command({copy q:\fj\msg\info\jikan_f.snd }|snddir|{*.*});
  360.          footnote({});
  361.          dispoff({No});
  362.         },
  363.         { ＮＯ },
  364.         );
  365.     };
  366.  
  367. /*    音声メッセージファイルの設定    */
  368. %setSNDDIR
  369.     {
  370.     SNDMSG({nyuryo_f.snd});
  371.     footnote({ディレクトリ名を入力して下さい});
  372.     %sound    @input({音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}
  373.             |{    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}
  374.             |{    例  A:\MOPTERM\SOUND},
  375.             ,SOUND);
  376.     case    (@getchar(sound,2,2)={:\},
  377.             {No},setSNDDIR,
  378.             {Yes},{SOUND:={}}
  379.         );
  380.     %sound2    {case    (@nochar(sound),
  381.             {3},{im(sound)},,{im(sound|{\})})};
  382.     mkdir2    (sound);
  383.     case    (@filechk(@sound2|{erande_f.snd})&&
  384.          @filechk(@sound2|{nyuryo_f.snd})&&
  385.          @filechk(@sound2|{kaknin_f.snd})&&
  386.          @filechk(@sound2|{okasi_f.snd})&&
  387.          @filechk(@sound2|{owata_f.snd})&&
  388.          @filechk(@sound2|{jikan_f.snd}),
  389.         {No},{copySND(@sound2)});
  390.     SOUND:=sound;
  391.     case(@nochar(SOUND)=3,{Yes},{SOUND2:=SOUND},{No},{SOUND2:=SOUND|{\}});
  392.     VBELL:={No};
  393.     };
  394.  
  395. /*    ｂｅｌｌｆｉｌｅの設定    */
  396. %setBELFIL
  397.     {
  398.     SNDMSG({erande_f.snd});
  399.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  400.     %bell    @filesel({SND});
  401.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  402.                     ,{im(@getcdir|{\}|bell)})};
  403.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  404.     case    (@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  405.         {Yes},{bellfile(BELFIL)});
  406.     SOUND:={};
  407.     SOUND2:={};
  408.     VBELL:={No};
  409.     };
  410.  
  411. /*    入力プロンプトの設定    */
  412. %setPRMPT
  413.     {
  414.     SNDMSG({erande_f.snd});
  415.     footnote({入力時のプロンプト方法を指定して下さい});
  416.     select    (
  417.         {入力時のプロンプト方法を指定して下さい},
  418.         Wtime4,,
  419.         {   音声メッセージ   },{VBELL:={No};setSNDDIR},
  420.         {      ブザー音      },{SOUND:={};SOUND2:={};VBELL:={No}},
  421.         {   画面フラッシュ   },{SOUND:={};SOUND2:={};VBELL:={Yes}},
  422.         {指定のｓｎｄファイル},{VBELL:={No};setBELFIL}
  423.         );
  424.     visibell(VBELL);
  425.     };
  426.  
  427. /*    なっとうスクロールの設定    */
  428. %setNATTOU
  429.     {
  430.     %natto    {case    (NATTOU,
  431.             {Yes},{im({『  使用する  』})},
  432.             ,     {im({『 使用しない 』})}
  433.             );
  434.         };
  435.     SNDMSG({erande_f.snd});
  436.     footnote({なっとうスクロールを使用しますか});
  437.     select    (
  438.         {なっとうスクロールを使用しますか  現在は}|@natto|{です},
  439.         Wtime4,,
  440.         {  使用する  },{NATTOU:={Yes};nattou(NATTOU)},
  441.         { 使用しない },{NATTOU:={No};nattou(NATTOU)}
  442.         );
  443.     };
  444.  
  445. /*    クリック音の設定    */
  446. %setCLICK
  447.     {
  448.     %clk    {case    (CLICK,
  449.             {No},{im({『 クリック音なし 』})},
  450.             ,    {im({『 クリック音あり 』})}
  451.             );
  452.         };
  453.     SNDMSG({erande_f.snd});
  454.     footnote({クリック音を出力しますか});
  455.     select    (
  456.         {クリック音を出力しますか  現在は}|@clk|{です},
  457.         Wtime4,,
  458.         { クリック音あり },{CLICK:={Yes};click(CLICK)},
  459.         { クリック音なし },{CLICK:={No};click(CLICK)}
  460.         );
  461.     };
  462.  
  463. /*    タブサイズの設定    */
  464. %setTAB    {
  465.     case    (TAB,{},{TAB:=8});
  466.     SNDMSG({erande_f.snd});
  467.     footnote({タブサイズを指定して下さい});
  468.     select    (
  469.         {タブサイズを指定して下さい  現在は}|TAB|{です},
  470.         Wtime4,,
  471.         { １ },{TAB:=1;tab(TAB)},
  472.         { ２ },{TAB:=2;tab(TAB)},
  473.         { ４ },{TAB:=4;tab(TAB)},
  474.         { ８ },{TAB:=8;tab(TAB)}
  475.         );
  476.     };
  477.  
  478. /*    シフトロックの設定    */
  479. %setLOCK{
  480.     %lock    {case    (LOCK,
  481.             {Yes},{im({『 シフトロックあり 』})},
  482.             ,     {im({『 シフトロックなし 』})}
  483.             );
  484.         };
  485.     SNDMSG({erande_f.snd});
  486.     footnote({シフトロックを行いますか？});
  487.     select    (
  488.         {シフトロックを行いますか  現在は}|@lock|{です},
  489.         Wtime4,,
  490.         { シフトロックあり },{LOCK:={Yes};shiftl(LOCK)},
  491.         { シフトロックなし },{LOCK:={No};shiftl(LOCK)}
  492.         );
  493.     };
  494.  
  495. /*    その他の設定をする    */
  496. %setETC    {
  497.     loop    (
  498.         {
  499.         SNDMSG({erande_f.snd});
  500.         footnote({設定する情報を選択して下さい});
  501.         select    (
  502.             {設定する情報を選択して下さい},
  503.             Wtime4,{im({No})},
  504.             {         背景色の設定         },{setCOLOR;im({Yes})},
  505.             {     プロンプト方法の設定     },{setPRMPT;im({Yes})},
  506.             {   なっとうスクロールの設定   },{setNATTOU;im({Yes})},
  507.             {       クリック音の設定       },{setCLICK;im({Yes})},
  508.             {       タブサイズの設定       },{setTAB;im({Yes})},
  509.             {      シフトロックの設定      },{setLOCK;im({Yes})},
  510.             {           設定終了           },{im({No})}
  511.             );
  512.         }
  513.         );
  514.     };
  515.  
  516. /*    設定情報をファイルに保存する    */
  517. %writeSET
  518.     {
  519.     setcdir(CDIR);
  520.     dispoff({Yes});
  521.     command({copy }|SETFILE|{ FAPXSET.BAK});
  522.     command({del }|SETFILE);
  523.     dispoff({No});
  524.     write(SETFILE,
  525.         {ID       :=}|@xc({7b})|ID       |@xc({7d})|{;\n}|
  526.         {PassWord :=}|@xc({7b})|PassWord |@xc({7d})|{;\n}|
  527.         {ROAD1    :=}|@xc({7b})|ROAD1    |@xc({7d})|{;\n}|
  528.         {ROAD2    :=}|@xc({7b})|ROAD2    |@xc({7d})|{;\n}|
  529.         {MODEM    :=}|@xc({7b})|MODEM    |@xc({7d})|{;\n}|
  530.         {DIAL     :=}|@xc({7b})|DIAL     |@xc({7d})|{;\n}|
  531.         {TEMP     :=}|@xc({7b})|TEMP     |@xc({7d})|{;\n}|
  532.         {LOG      :=}|@xc({7b})|LOG      |@xc({7d})|{;\n}|
  533.         {COMPRESS :=}|@xc({7b})|COMPRESS |@xc({7d})|{;\n}|
  534.         {ARCHIVER :=}|@xc({7b})|ARCHIVER |@xc({7d})|{;\n}|
  535.         {SOUND    :=}|@xc({7b})|SOUND    |@xc({7d})|{;\n}|
  536.         {LOGmode  :=}|@xc({7b})|LOGmode  |@xc({7d})|{;\n}|
  537.         {R        :=}|@xc({7b})|R        |@xc({7d})|{;\n}|
  538.         {G        :=}|@xc({7b})|G        |@xc({7d})|{;\n}|
  539.         {B        :=}|@xc({7b})|B        |@xc({7d})|{;\n}|
  540.         {BELFIL   :=}|@xc({7b})|BELFIL   |@xc({7d})|{;\n}|
  541.         {VBELL    :=}|@xc({7b})|VBELL    |@xc({7d})|{;\n}|
  542.         {NATTOU   :=}|@xc({7b})|NATTOU   |@xc({7d})|{;\n}|
  543.         {CLICK    :=}|@xc({7b})|CLICK    |@xc({7d})|{;\n}|
  544.         {LOCK     :=}|@xc({7b})|LOCK     |@xc({7d})|{;\n}|
  545.         {TAB      :=}|@xc({7b})|TAB      |@xc({7d})|{;\n});
  546.     };
  547.  
  548. /*    設定情報をもとに戻す    */
  549. %CANCEL    {
  550.     SNDMSG({erande_f.snd});
  551.     footnote({本当にもとに戻してもいいですか？});
  552.     select    ({本当にもとに戻してもいいですか？},
  553.         Wtime4,,
  554.         { Ｏ Ｋ },
  555.         {case    (@filechk(SETFILE),
  556.             {Yes},{setcdir(CDIR);#FAPXSET.SET;init})},
  557.         { Ｎ Ｇ },
  558.         );
  559.     };
  560.  
  561. /*    設定する情報の選択    */
  562. %FAPXSET{
  563.     loop    (
  564.         {
  565.         SNDMSG({erande_f.snd});
  566.         footnote({設定する情報を選択して下さい});
  567.         select    (
  568.             {設定する情報を選択して下さい},
  569.             Wtime4,{im({No})},
  570.             {ユーザーＩＤとパスワードの設定},{setID;im({Yes})},
  571.             {         モデムの設定         },{setMDM;im({Yes})},
  572.             {        電話番号の設定        },{setTEL;im({Yes})},
  573.             {      ログファイルの設定      },{setDIR;im({Yes})},
  574.             {         その他の設定         },{setETC;im({Yes})},
  575.             {      もとの設定にもどす      },{CANCEL;im({Yes})},
  576.             {      設定を保存して終了      },{writeSET;im({No})}
  577.             );
  578.         }
  579.         );
  580.     };
  581.  
  582. FAPXSET;
  583.